{ FILE BEING WRITTEN BY POINTY  13:18  21 Oct 1978 }
A←3
V←VECTOR(2,3,4)
V← V +
XHAT
QREAD LIB.LIB[LIB,MSM]
BLOCK0←BARM
LOCATE_ZUP(BLOCK00);
LOCATE_ZUP(BLOCK0F);
MOVE BGRASP BLOCK00 + 4*ZHAT
MOVE BGRASP TO BLOCK00 + 4*ZHAT
MOVEZ BGRASP BY -4
CENTER BARM
MOVE BGRASP TO BLOCK00+4*ZHAT,BLOCK0F+4*ZHAT,BLOCK0F
OPEN BHAND TO 4
OPEN BHAND TO 3.5
MOVE BARM TO BPARK
CLOSE_FILES